﻿Public Class frmMoniteursRecap

    Private Sub frmMoniteursRecap_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        InitComboMoniteur(CB_MONITEUR_DEBUT)
        CB_MONITEUR_DEBUT.SelectedIndex = 0     ' debut de la liste
        InitComboMoniteur(CB_MONITEUR_FIN)
        CB_MONITEUR_FIN.SelectedIndex = CB_MONITEUR_FIN.Items.Count - 1     ' fin de la liste
        ' période = mois en cours
        TE_DATE_DEBUT.Value = CDate(Now.Year.ToString & "/" & Now.Month.ToString & "/01")

    End Sub

    Private Sub BO_IMPRIMER_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BO_IMPRIMER.Click
        ' date correcte ?
        If DateDiff(DateInterval.Day, TE_DATE_DEBUT.Value, TE_DATE_FIN.Value) < 0 Then
            MsgBox("La date de fin doit être supérieure à la date début", MsgBoxStyle.Critical)
            Exit Sub
        End If
        ' imprimer Récap activités Monieurs
        FrmViewReport.pCodeEtat = 3
        gMoniteur1 = getCodeFromCombo(CB_MONITEUR_DEBUT.SelectedItem)
        gMoniteur2 = getCodeFromCombo(CB_MONITEUR_FIN.SelectedItem)
        gDate_debut = TE_DATE_DEBUT.Value
        gDate_fin = TE_DATE_FIN.Value
        FrmViewReport.pParamRPT = "du " & Format(TE_DATE_DEBUT.Value, "dd/MM/yyyy") & " au " & Format(TE_DATE_FIN.Value, "dd/MM/yyyy")
        FrmViewReport.ShowDialog()

    End Sub

    Private Sub TE_DATE_DEBUT_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TE_DATE_DEBUT.ValueChanged
        ' date de fin = date de début fin de mois
        TE_DATE_FIN.Value = TE_DATE_DEBUT.Value.AddMonths(1)
        TE_DATE_FIN.Value = TE_DATE_FIN.Value.AddDays(-1)
    End Sub
End Class